Apple Reference & Present…nuary (Partner) - Disc 2/The Apple Reference and Presentations Library (Disc 2)(January 1994).iso/SAS Institute/US English/JMP Statistical/JMP-PPC/SAMPLE DATA demo/AppleScript Demos/AppleScript Demo Text (long)

Text File | 1994-03-16 | 23KB | 553 lines

set wt to 2 --WAITING TIME, SET THIS TO 0 FOR A FAST DEMO, 2 FOR MEDIUM, 4 FOR SLOW
tell application "JMP Demo"
    demo "A tour of the JMP Analyses" wait (wt)
    set window position to {50, 50}

    demo "Open a data Table"
    open table ":SAMPLE DATA demo:BIG CLASS (general)"
    set name of last table to "class"
    set labeled of column "Name" of table "class" to true

    --Distribution of Y--
    demo "The first platform is Distribution of Y" wait (wt)
    demo "for a description of the univariate distribution of each variable"
    analyze distribution for {"Sex", "Age", "Height", "Weight"} from table "class"
    demo "Now lets zoom the window to fill the screen" wait (wt)
    set zoomed of distribution 1 to true
    demo "Sex and Age are nominal variables, the platform shows frequency counts" move to {50, 90}
    demo wait wt
    demo "Height and Weight are continuous variables, the platform shows means etc" move to {550, 100}
    demo wait wt
    demo "For nominal variables, we have histograms and divided bar charts" move to {50, 90}
    demo wait wt
    demo "For continuous variables, we have histograms and box plots" move to {550, 100}
    demo wait wt
    demo "For each variable we have a graphical presentation at the top" move to {50, 90}
    demo wait wt
    demo "and the text presentation below" move to {50, 360}
    demo wait wt
    demo "at the bottom left are popup icons to select options" move to {30, 400}
    demo wait wt
    demo "for example, we can turn off the text reports" wait (wt)
    analyze distribution 1 without text report
    demo "and we can turn off the divided bars and box plots" wait (wt)
    analyze distribution 1 without outlier box plot and mosaic plot
    demo "these commands toggle the items on and off, text report on:" wait (wt)
    analyze distribution 1 with text report
    demo "text report off" wait (wt)
    analyze distribution 1 without text report
    demo "put a normal curve on the continuous variables" wait (wt)
    analyze distribution 1 with normal curve
    demo wait wt
    demo "test that the mean is 140" wait (wt)
    analyze distribution 1 mean test 140 with text report
    demo wait wt
    demo "do a normal quantile plot"
    analyze distribution 1 with normal quantile plot
    demo wait wt
    demo "test for normality" wait (wt)
    analyze distribution 1 with normality test
    demo wait wt
    set scroll of distribution 1 to {0, 0}
    analyze distribution 1 without text report and normal quantile plot
    demo wait wt
    set zoomed of distribution 1 to true
    set position of distribution 1 to {160, 70}

    --Row Highlighting--
    demo "You can click on a histogram bar to highlight the rows that make it" move to {50, 50}
    demo wait wt
    demo "click on Sex='M' to highlight the males" wait (wt)
    set selected of rows of table "class" whose column "Sex" is "M" to true
    demo "click on Sex='F' to highlight the females" wait (wt)
    set selected of rows of table "class" whose column "Sex" is "M" to false
    set selected of rows of table "class" whose column "Sex" is "F" to true
    demo wait wt
    set selected of rows of table "class" whose column "Sex" is "F" to false
    demo "click on Age=11" move to {170, 30}
    demo wait wt
    set selected of rows of table "class" whose column "Age" is 11 to true
    demo "click on the the other ages" wait (wt)
    set selected of rows of table "class" whose column "Age" is 11 to false
    set selected of rows of table "class" whose column "Age" is 12 to true
    set selected of rows of table "class" whose column "Age" is 12 to false
    set selected of rows of table "class" whose column "Age" is 13 to true
    set selected of rows of table "class" whose column "Age" is 13 to false
    set selected of rows of table "class" whose column "Age" is 14 to true
    set selected of rows of table "class" whose column "Age" is 14 to false
    set selected of rows of table "class" whose column "Age" is 15 to true
    set selected of rows of table "class" whose column "Age" is 15 to false
    set selected of rows of table "class" whose column "Age" is 16 to true
    set selected of rows of table "class" whose column "Age" is 16 to false

    demo "Now lets move on to another platform" wait (wt)
    demo "But we'll leave up this one, moving it down" wait (wt)
    set bounds of window 2 to {345, 9, 612, 660} --{top,left,bottom,right}

    --Fit Y by X, continuous by continuous--
    demo "The second analyze command is Fit Y by X" wait (wt)
    demo "Lets fit Height by Weight" wait (wt)
    analyze fit for "Height" by "Weight" from table "class"
    set zoomed of fit 1 to true
    demo "The result starts as a simple scatterplot" wait (wt)
    demo "The points respond to the row states in the data table" wait (wt)
    demo "For example lets click the histograms again" wait (wt)
    demo "Watch the points in the scatterplot highlight"
    set selected of rows of table "class" whose column "Sex" is "M" to true
    demo wait wt
    set selected of rows of table "class" whose column "Sex" is "M" to false
    set selected of rows of table "class" whose column "Sex" is "F" to true
    demo wait wt
    set selected of rows of table "class" whose column "Sex" is "F" to false
    set selected of rows of table "class" whose column "Age" is 11 to true
    set selected of rows of table "class" whose column "Age" is 11 to false
    set selected of rows of table "class" whose column "Age" is 12 to true
    set selected of rows of table "class" whose column "Age" is 12 to false
    set selected of rows of table "class" whose column "Age" is 13 to true
    set selected of rows of table "class" whose column "Age" is 13 to false
    set selected of rows of table "class" whose column "Age" is 14 to true
    set selected of rows of table "class" whose column "Age" is 14 to false
    set selected of rows of table "class" whose column "Age" is 15 to true
    set selected of rows of table "class" whose column "Age" is 15 to false
    set selected of rows of table "class" whose column "Age" is 16 to true
    set selected of rows of table "class" whose column "Age" is 16 to false

    demo "You can give the selected rows other properties" wait (wt)
    demo "Lets mark the females with an X" wait (wt)
    set selected of rows of table "class" whose column "Sex" is "F" to true
    set marker of rows of table "class" whose column "Sex" is "F" to xMark
    set selected of rows of table "class" whose column "Sex" is "F" to false
    demo "and the males with a plus" wait (wt)
    set selected of rows of table "class" whose column "Sex" is "M" to true
    set marker of rows of table "class" whose column "Sex" is "M" to plusMark
    set selected of rows of table "class" whose column "Sex" is "M" to false
    demo "and color by age values" wait (wt)
    set color of rows of table "class" whose column "Age" < 13 to cyan
    set color of rows of table "class" whose column "Age" = 13 to yellowGreen
    set color of rows of table "class" whose column "Age" > 13 to orange
    set selected of rows of table "class" whose column "Age" < 13 to true
    set selected of rows of table "class" whose column "Age" = 13 to true
    set selected of rows of table "class" whose column "Age" > 13 to true

    demo "There are several other row states" wait (wt)
    demo "The LABEL row state:" wait (wt)
    repeat with i from 1 to 19
        set labeled of row i of table "class" to true
        set labeled of row i of table "class" to false
    end repeat
    demo "The HIDE row state:" wait (wt)
    repeat with i from 1 to 19
        set hidden of row i of table "class" to true
    end repeat
    repeat with i from 1 to 19
        set hidden of row i of table "class" to false
    end repeat
    set selected of every row of table "class" to false

    demo "Now we use the commands in the Fit Y by X platform" wait (wt)
    demo "Add a straight line fit" wait (wt)
    analyze fit 1 with line fit
    demo wait wt
    demo "Or a polynomial, say degree 4" wait (wt)
    analyze fit 1 poly fit 4
    demo wait wt
    demo "Or a flexible spline fit" wait (wt)
    analyze fit 1 spline fit 10
    demo wait wt
    demo "Or bivariate normal density ellipses" wait (wt)
    analyze fit 1 density ellipse 0.5 with reveal
    demo wait wt
    demo "The text reports are below" wait (wt)
    repeat with i from 30 to 660 by 30
        set scroll of fit 1 to {0, i}
    end repeat
    set revealed of report "Smoothing Spline Fit, lambda=10" of fit 1 to true
    set revealed of report "Bivariate" of fit 1 to true
    demo wait wt
    demo "Lets close this and start up a new one" wait (wt)
    close fit 1 saving no
    demo "Density Ellipses Grouped by sex"
    analyze fit for "Height" by "Weight" from table "class"
    analyze fit 1 grouping column "Sex" density ellipse 0.5
    demo wait wt
    demo "Closing Window" move to {350, 30}
    demo wait wt
    close fit 1 saving no

    --Fit Y by X, continuous by nominal--
    demo "The 'Fit Y by X' platform does different analyses" wait (wt)
    demo "Depending on the 'Modeling Type' of the X and Y variables" wait (wt)
    demo "For example, suppose you fit continuous-by-nominal" wait (wt)
    demo "Height by Age is continuous-by-nominal" wait (wt)
    analyze fit for "Height" by "Age" from table "class"
    demo "First, you get a vertical scatter per X level" move to {150, 150}

    demo "Add quantiles with box plots" wait (wt)
    analyze fit 1 with quantile fit
    demo "Add a one-way analysis of variance" wait (wt)
    analyze fit 1 with means and anova
    demo "The height of the diamonds shows the 95% confidence limits for the means" wait (wt)
    demo "Lets scroll down to the report"
    repeat with i from 30 to 450 by 30
        set scroll of fit 1 to {0, i}
    end repeat
    demo "Lets scroll back up" wait (wt)
    set scroll of fit 1 to {0, 0}
    demo wait wt

    demo "There are several Means Comparisons" wait (wt)
    demo "Students t tests can be used" wait (wt)
    analyze fit 1 with Student LSD
    demo "The comparison circles show which mean is different from which others" wait (wt)

    demo "Three nonparametric tests are available. Wilcoxon for example" wait (wt)
    analyze fit 1 with Wilcoxon test
    set scroll of fit 1 to {0, 550}
    demo "If you suspect the variances are different for each group" wait (wt)
    demo "Then get the tests for unequal variances" wait (wt)
    analyze fit 1 with test variances
    set scroll of fit 1 to {0, 800}
    demo "Closing Window" wait (wt)
    close fit 1 saving no

    --Fit Y by X, nominal by nominal--
    demo "For 'Fit Y by X' for nominal-by-nominal" wait (wt)
    demo "You are doing Contingency tables" wait (wt)
    analyze fit for "Age" by "Sex" from table "class" without mosaic plot and tests
    analyze fit 1 with tests
    demo "Chi-square tests for independence are shown" wait (wt)
    demo "The graphical display of a contingency table is a mosaic plot"
    analyze fit 1 with mosaic plot
    demo wait wt
    demo "You can even get a correspondence analysis" wait (wt)
    analyze fit 1 with correspondence analysis
    repeat with i from 100 to 550 by 50
        set scroll of fit 1 to {0, i}
    end repeat
    demo "Closing Fit Nominal-by-nominal" wait (wt)
    close fit 1 saving no

    --Fit Model
    demo "Now lets go for the BIG GUNS of fitting" wait (wt)
    demo "the FIT MODEL command" wait (wt)
    demo "Here is a fit of Height by Age, Sex and their crossproduct" wait (wt)
    analyze model fit from table ¬
        "class" for "Height" by {"Age", "Sex", {"Age", "Sex"}}
    demo wait wt
    demo "First, you get a Model Specification Window to fill in" move to {350, 105}
    demo wait wt
    demo "Then you click the Run Model button" move to {390, 245}
    demo wait wt
    demo "Then you get the resulting Fit Window" move to {50, 150}
    demo wait wt
    demo "The first column of reports is all textual" wait (wt)
    demo "But as you scroll you get graphs for every hypothesis test" wait (wt)
    repeat with i from 50 to 1300 by 50
        set scroll of model fit 1 to {i, 0}
    end repeat
    analyze model fit 1 with plot residual
    demo "Closing Window"
    close model fit 1 saving no

    demo "There are many personalities to the fitting system" wait (wt)

    --Fit Model: Screening Factorial
    demo "•Screening Fit, for examining many factors in an experiment"
    demo "Here we have a 5-factor 2-level factorial from Box, Hunter and Hunter"
    open table ":SAMPLE DATA demo:REACTOR (screening)"
    set name of last table to "Reactor"
    demo "The Screening Personality for model fitting"
    analyze model fit from table ¬
        "Reactor" for ¬
        "Y" by {{factorial:{"F", "Ct", "A", "T", "Cn"}}} ¬
        personality screening with profiler
    set zoomed of model fit 1 to true
    demo wait 2 * wt

    demo "Box Cox, to find the power transformation on Y that fits best" wait (wt)
    analyze model fit 1 with Box Cox
    set scroll of model fit 1 to {0, 32000}
    demo wait wt

    demo "Cube Plots, to see the predicted value at the extreme points"
    analyze model fit 1 with cube plots
    set zoomed of model fit 1 to true
    set scroll of model fit 1 to {0, 32000}
    demo wait wt

    demo "Interaction Plots, for each factor vs the others"
    analyze model fit 1 with interaction plots
    set zoomed of model fit 1 to true
    set scroll of model fit 1 to {0, 32000}
    demo wait wt

    demo "Effect Screening, to see which effects stand out from the others"
    analyze model fit 1 with effect screening
    set zoomed of model fit 1 to true
    set scroll of model fit 1 to {0, 32000}
    demo wait wt
    analyze model fit 1 with Pareto plot
    set zoomed of model fit 1 to true
    set scroll of model fit 1 to {0, 32000}
    demo wait wt
    demo "closing"
    close model fit 1
    close window "Reactor: Model"
    close table "Reactor" saving no


    --Fit Model: Screening Multiple Response Surface
    demo "Screening a Multiple-Y Response Surface"
    open table ":SAMPLE DATA demo:TIRETREAD (screening)"
    set name of last table to "tireTread"
    analyze model fit from table ¬
        "tireTread" for {"ABRASION", "MODULUS", "ELONG", "HARDNESS"} ¬
        by {{surface:{"SILICA", "SILANE", "SULFUR"}}} ¬
        personality screening with profiler
    set zoomed of model fit 1 to true
    demo "screening fit for 4 Y's by 3-factor response surface" wait (3 * wt)
    close model fit 1
    close window "tireTread: Model"
    close table "tireTread" saving no

    --Fit Model: Manova
    demo "Fitting a Manova repeated-measures model with 4 Y's"
    open table ":SAMPLE DATA demo:DOGS (repeated measure)"
    set name of last table to "dogs"
    analyze model fit from table ¬
        "dogs" for {"LogHist0", "LogHist1", "LogHist3", "LogHist5"} ¬
        by {{factorial:{"drug", "dep1"}}} ¬
        personality manova ¬
        response function {{1, -1, 0, 0}, {0, 1, -1, 0}, {0, 0, 1, -1}}
    set zoomed of model fit 1 to true
    set scroll of model fit 1 to {0, 32000}
    demo wait wt
    execute menu item "Centroid Plot" of report "Whole Model" of model fit 1
    demo wait wt
    close model fit 1
    close window "dogs: Model"
    close table "dogs" saving no

    --Correlation Platform
    demo "•The Correlations platform" wait (wt)
    analyze correlation for {"Age", "Weight", "Height"} from table "class"
    demo "Starts with just correlations as text"
    analyze correlation 1 with scatterplot matrix
    set zoomed of correlation 1 to true
    demo "But it is easy to add a graphical version, a scatterplot matrix" wait (wt)
    analyze correlation 1 with inverse correlations
    analyze correlation 1 with partial correlations
    analyze correlation 1 with pairwise correlations without partial correlations
    set scroll of correlation 1 to {0, 120}
    set scroll of correlation 1 to {0, 180}
    set scroll of correlation 1 to {0, 240}
    analyze correlation 1 with Kendall tau
    set scroll of correlation 1 to {0, 300}
    analyze correlation 1 with Spearman rho
    analyze correlation 1 with Hoeffding D
    set scroll of correlation 1 to {0, 380}
    analyze correlation 1 without Kendall tau, Spearman rho and Hoeffding D
    analyze correlation 1 with outlier distances
    set scroll of correlation 1 to {0, 400}
    analyze correlation 1 with jackknife distances
    set scroll of correlation 1 to {0, 580}
    demo "closing correlations" wait (wt)
    close correlation 1 saving no

    demo "•The Cluster Platform"
    analyze cluster for {"Age", "Weight", "Height"} from table "class"
    demo "The process starts with each point a separate cluster" move to {20, 90} wait (wt)
    demo "At each step, two clusters are joined into one" move to {140, 90} wait (wt)
    demo "Until all the points are in one cluster" move to {300, 90} wait (wt)
    demo "Now lets set it for 3 clusters and color, mark, and save the results" wait (wt)
    analyze cluster 1 nCluster 3 with coloring, marking and save clusters
    demo "And see how they appear on a scatterplot of two of the variables" wait (wt)
    analyze fit for "Height" by "Weight" from table "class"
    set zoomed of last fit to true
    set position of last fit to {380, 250}

    demo wait wt
    demo "Cluster 1" wait (wt)
    set selected of rows of table "class" whose column "Cluster" is 1 to true
    demo "Cluster 2" wait (wt)
    set selected of rows of table "class" whose column "Cluster" is 1 to false
    set selected of rows of table "class" whose column "Cluster" is 2 to true
    demo "Cluster 3" wait (wt)
    set selected of rows of table "class" whose column "Cluster" is 2 to false
    set selected of rows of table "class" whose column "Cluster" is 3 to true
    demo "Closing" wait (wt)
    set selected of rows of table "class" whose column "Cluster" is 3 to false
    close cluster 1 saving no
    close last fit saving no

    --close table "class"

    demo "•The Survival Platform"
    set window position to {50, 50}
    open table ":SAMPLE DATA demo:RATS-DMBA (survival)"
    set name of last table to "rats"

    demo "This table has survival data, how long rats survived in two groups" wait (wt)
    demo "and some observations are censored" wait (wt)
    demo "i.e. they are known only to be greater than some value" wait (wt)
    analyze survival for "Days" label "Group" censored by "censor" from table "rats"
    demo "Here are product-moment (Kaplan-Meier) survival estimates"
    analyze survival 1 with reveal
    set revealed of report "Group=Group 1" of survival 1 to true
    set revealed of report "Group=Group 2" of survival 1 to true
    set revealed of report "Combined" of survival 1 to true
    repeat with i from 30 to 950 by 30
        set scroll of survival 1 to {0, i}
    end repeat
    demo wait wt
    set scroll of survival 1 to {0, 0}
    analyze survival 1 with points
    demo "With points shown. Censored points are shown above the steps" wait (wt)
    analyze survival 1 with combined
    demo "The survival estimates that combine the groups is also available" wait (wt)
    analyze survival 1 with exponential plot
    set scroll of survival 1 to {0, 300}
    demo "The survival curve can be plotted on an exponential scale" wait (wt)
    analyze survival 1 with Weibull plot without exponential plot
    demo "and also on a Weibull basis" wait (wt)
    close survival 1 saving no
    close table "rats" saving no

    demo "•Charts"
    summarize table "class" by {"Age", "Sex"} mean {"Height", "Weight"}
    set name of last table to "classChart"
    graph chart for "Mean(Height)" by {"Sex", "Age"} from table "classChart"
    set wt2 to wt / 2
    demo wait wt2
    graph chart 1 orientation horizontal
    demo wait wt2
    graph chart 1 orientation vertical
    demo wait wt2
    graph chart 1 orientation pie
    demo wait wt2
    graph chart 1 orientation vertical type {needle}
    demo wait wt2
    graph chart 1 type {line}
    demo wait wt2
    graph chart 1 type {bar}
    demo wait wt2
    graph chart 1 with stack
    demo wait wt2
    graph chart 1 without stack
    demo wait wt2
    graph chart 1 with pattern
    demo wait wt2
    graph chart 1 without pattern
    demo wait wt2
    close chart 1 saving no
    close table "classChart" saving no

    demo "•Overlay Plot"
    graph plot for {"Height", "Weight"} by "Age" from table ¬
        "class" points {true, false} connect {true, false} ¬
        markers {plusMark, xMark} colors {red, blue} with overlay
    close plot 1 saving no

    demo "•The spinning plot for 3D viewing"
    set color of rows of table "class" whose column "Age" < 13 to cyan
    set color of rows of table "class" whose column "Age" = 13 to yellowGreen
    set color of rows of table "class" whose column "Age" > 13 to orange
    graph spinning plot for {"Age", "Height", "Weight"} from table "class"
    demo "Pitch"
    graph spinning plot 1 rotate {3, 0, 0, 100}
    demo "Yaw"
    graph spinning plot 1 rotate {0, 3, 0, 100}
    demo "Roll"
    graph spinning plot 1 rotate {0, 0, 3, 100}
    demo "spinning any way you want"
    graph spinning plot 1 rotate {6, 5, 3, 100}
    graph spinning plot 1 rotate {12, 6, 0, 100}
    graph spinning plot 1 rotate {2, 3, 0, 100}
    demo "with a box"
    graph spinning plot 1 rotate {2, 3, 0, 100} with box
    demo "with a white background"
    graph spinning plot 1 rotate {2, 3, 0, 100} with white background without box
    demo "with rays from origin"
    graph spinning plot 1 with rays without white background
    graph spinning plot 1 rotate {2, 3, 0, 100}
    graph spinning plot 1 without rays
    demo "rocking back and forth"
    repeat with i from 1 to 4
        graph spinning plot 1 rotate {0, 5, 0, 20}
        graph spinning plot 1 rotate {0, -5, 0, 20}
    end repeat
    repeat with i from 1 to 4
        graph spinning plot 1 rotate {5, 0, 0, 20}
        graph spinning plot 1 rotate {-5, 0, 0, 20}
    end repeat
    close spinning plot 1 saving no

    --set bounds of window 2 to {5, 40, 640, 480}--{left,top,right,bottom}

    demo "•Pareto charts"
    graph pareto plot for "Age" by "Sex" from table "class"
    demo wait wt * 2
    close pareto plot 1 saving no

    demo "•Control Charts"
    graph control chart for {"Weight"} from table "class" type {individual}
    demo wait wt * 2
    close control chart 1 saving no

    demo "•Contour Plots"
    open table ":SAMPLE DATA demo:LITTLE POND (contour)"
    set name of last table to "little pond"
    graph contour plot for "Z" by {"X", "Y"} from table "little pond"
    demo wait wt * 2
    close contour plot 1 saving no
    close table "little pond" saving no

    demo "•Ternary Plots"
    graph ternary plot by {"Height", "Weight", "Age"} from table "class"
    demo wait wt * 2
    close ternary plot 1

    demo "•Data Table Manipulations" wait (wt)

    demo "Summarize: mean of height and weight by age and sex"
    summarize table "class" by {"Age", "Sex"} mean {"Height", "Weight"}
    demo wait (2 * wt)
    close last table saving no

    demo "Subset 4 rows and 2 columns"
    subset table "class" row {2, 3, 4, 9} column {"Name", "Age"} making "subClass"
    demo wait wt
    close table "subClass" saving no

    demo "Sort"
    sort table "class" by {"Age", descending, "Name"} making "sortClass"
    demo "sorted by Age descending, then name" wait (2 * wt)
    close table "sortClass" saving no

    demo "Stack, to stack several variables into several rows of one variable"
    stack table "class" by {"Height", "Weight"} into "Y" id "Which" making "StackClass"
    demo wait (2 * wt)

    demo "Split, to undo the stack"
    split table "StackClass" column "Y" id "Which" making "class2"
    demo wait (2 * wt)

    demo "concatenate"
    concatenate {table "class", table "class2"} making "class3"
    demo wait wt
    close table "class3" saving no
    close table "class2" saving no
    close table "StackClass" saving no

    demo "Transpose"
    subset table "class" row {1, 2, 3} column {"Height", "Weight"} making "s1"
    transpose table "s1" making "s2"
    demo wait (2 * wt)
    close table "s2" saving no
    close table "s1" saving no

    demo "• End of Demo. Thanks for looking."
    close last window
    close table "class" saving no

end tell